home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g11.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
448b
|
18 lines
100 ' G11 T.WAKAMATSU
110 CLS:PI=3.14159!
120 FOR J=1 TO 3
130 READ C,B
140 FOR P=0 TO 60 STEP .5!
150 FOR I=P TO P+360 STEP 60
160 T=I/180*PI:U=(I+10)/180*PI
170 Z=COS(T*6+60)*100+140
180 S=SIN(T*6+60)*100+140
190 X=S*COS(U)+320:Y=S*SIN(U)+240
200 Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
210 C=B-C
220 LINE(X,Y)-(X1,Y1),PSET,%C
230 NEXT I
240 NEXT P
250 NEXT J
260 DATA 4,9,2,4,0,0